Function RegExpReplace(iput As Variant, sRule As String)
    '正则替换
    Dim i%, op As String
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
    With reg
        .Pattern = sRule '规则
        .Global = True '多次匹配还是一次
        .IgnoreCase = True '是否区分大小写
        .MultiLine = True  '搜索字符串是否分布在多行
    End With
    
    '输出=reg.Execute(输入,替换)
    op = reg.Replace(iput, "")
    
    RegExpReplace = op
    '数字超过15位，先把单元格设置文本格式
    '.NumberFormatLocal = "@"
    '
End Function
